<?php
if(!defined('CRLF')) define('CRLF',"\r\n");
if(!defined("FTP_AUTOASCII")) define("FTP_AUTOASCII", -1);
if(!defined("FTP_BINARY")) define("FTP_BINARY", 1);
if(!defined("FTP_ASCII")) define("FTP_ASCII", 0);
if(!defined('FTP_FORCE')) define('FTP_FORCE', TRUE);

define('FTP_OS_Unix','u');
define('FTP_OS_Windows','w');
define('FTP_OS_Mac','m');

$mod_sockets=TRUE;
if (!extension_loaded('sockets')) {
	$prefix = (PHP_SHLIB_SUFFIX == 'dll') ? 'php_' : '';
	if(!@dl($prefix . 'sockets.' . PHP_SHLIB_SUFFIX)) $mod_sockets=FALSE;
}

if($mod_sockets){
    class appRain_Base_Modules_Ftp extends appRain_Base_Modules_FtpBase {

        function ftp($verb=FALSE, $le=FALSE) {
            $this->__construct($verb, $le);
        }

        function __construct($verb=FALSE, $le=FALSE) {
            parent::__construct(true, $verb, $le);
        }

    // <!-- --------------------------------------------------------------------------------------- -->
    // <!--       Private functions                                                                 -->
    // <!-- --------------------------------------------------------------------------------------- -->

        function _settimeout($sock) {
            if(!@socket_set_option($sock, SOL_SOCKET, SO_RCVTIMEO, array("sec"=>$this->_timeout, "usec"=>0))) {
                $this->PushError('_connect','socket set receive timeout',socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            if(!@socket_set_option($sock, SOL_SOCKET , SO_SNDTIMEO, array("sec"=>$this->_timeout, "usec"=>0))) {
                $this->PushError('_connect','socket set send timeout',socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            return true;
        }

        function _connect($host, $port) {
            $this->SendMSG("Creating socket");
            if(!($sock = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP))) {
                $this->PushError('_connect','socket create failed',socket_strerror(socket_last_error($sock)));
                return FALSE;
            }
            if(!$this->_settimeout($sock)) return FALSE;
            $this->SendMSG("Connecting to \"".$host.":".$port."\"");
            if (!($res = @socket_connect($sock, $host, $port))) {
                $this->PushError('_connect','socket connect failed',socket_strerror(socket_last_error($sock)));
                @socket_close($sock);
                return FALSE;
            }
            $this->_connected=true;
            return $sock;
        }

        function _readmsg($fnction="_readmsg"){
            if(!$this->_connected) {
                $this->PushError($fnction,'Connect first');
                return FALSE;
            }
            $result=true;
            $this->_message="";
            $this->_code=0;
            $go=true;
            do {
                $tmp=@socket_read($this->_ftp_control_sock, 4096, PHP_BINARY_READ);
                if($tmp===false) {
                    $go=$result=false;
                    $this->PushError($fnction,'Read failed', socket_strerror(socket_last_error($this->_ftp_control_sock)));
                } 
				else {
                    $this->_message.=$tmp;
                    $go = !preg_match("/^([0-9]{3})(-.+\\1)? [^".CRLF."]+".CRLF."$/Us", $this->_message, $regs);
                }
            } while($go);
            if($this->LocalEcho) echo "GET < ".rtrim($this->_message, CRLF).CRLF;
            $this->_code=(int)$regs[1];
            return $result;
        }

        function _exec($cmd, $fnction="_exec") {
            if(!$this->_ready) {
                $this->PushError($fnction,'Connect first');
                return FALSE;
            }
            if($this->LocalEcho) echo "PUT > ",$cmd,CRLF;
            $status=@socket_write($this->_ftp_control_sock, $cmd.CRLF);
            if($status===false) {
                $this->PushError($fnction,'socket write failed', socket_strerror(socket_last_error($this->stream)));
                return FALSE;
            }
            $this->_lastaction=time();
            if(!$this->_readmsg($fnction)) return FALSE;
            return TRUE;
        }

        function _data_prepare($mode=FTP_ASCII) {
            if(!$this->_settype($mode)) return FALSE;
            $this->SendMSG("Creating data socket");
            $this->_ftp_data_sock = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
            if ($this->_ftp_data_sock < 0) {
                $this->PushError('_data_prepare','socket create failed',socket_strerror(socket_last_error($this->_ftp_data_sock)));
                return FALSE;
            }
            if(!$this->_settimeout($this->_ftp_data_sock)) {
                $this->_data_close();
                return FALSE;
            }
            if($this->_passive) {
                if(!$this->_exec("PASV", "pasv")) {
                    $this->_data_close();
                    return FALSE;
                }
                if(!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
                $ip_port = explode(",", ereg_replace("^.+ \\(?([0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]+,[0-9]+)\\)?.*".CRLF."$", "\\1", $this->_message));
                $this->_datahost=$ip_port[0].".".$ip_port[1].".".$ip_port[2].".".$ip_port[3];
                $this->_dataport=(((int)$ip_port[4])<<8) + ((int)$ip_port[5]);
                $this->SendMSG("Connecting to ".$this->_datahost.":".$this->_dataport);
                if(!@socket_connect($this->_ftp_data_sock, $this->_datahost, $this->_dataport)) {
                    $this->PushError("_data_prepare","socket_connect", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                else $this->_ftp_temp_sock=$this->_ftp_data_sock;
            } 
			else {
                if(!@socket_getsockname($this->_ftp_control_sock, $addr, $port)) {
                    $this->PushError("_data_prepare","can't get control socket information", socket_strerror(socket_last_error($this->_ftp_control_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if(!@socket_bind($this->_ftp_data_sock,$addr)){
                    $this->PushError("_data_prepare","can't bind data socket", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if(!@socket_listen($this->_ftp_data_sock)) {
                    $this->PushError("_data_prepare","can't listen data socket", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if(!@socket_getsockname($this->_ftp_data_sock, $this->_datahost, $this->_dataport)) {
                    $this->PushError("_data_prepare","can't get data socket information", socket_strerror(socket_last_error($this->_ftp_data_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                if(!$this->_exec('PORT '.str_replace('.',',',$this->_datahost.'.'.($this->_dataport>>8).'.'.($this->_dataport&0x00FF)), "_port")) {
                    $this->_data_close();
                    return FALSE;
                }
                if(!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
            }
            return TRUE;
        }

        function _data_read($mode=FTP_ASCII, $fp=NULL) {
            $NewLine=$this->_eol_code[$this->OS_local];
            if(is_resource($fp)) $out=0;
            else $out="";
            if(!$this->_passive) {
                $this->SendMSG("Connecting to ".$this->_datahost.":".$this->_dataport);
                $this->_ftp_temp_sock=socket_accept($this->_ftp_data_sock);
                if($this->_ftp_temp_sock===FALSE) {
                    $this->PushError("_data_read","socket_accept", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return FALSE;
                }
            }

            while(($block=@socket_read($this->_ftp_temp_sock, $this->_ftp_buff_size, PHP_BINARY_READ))!==false) {
                if($block==="") break;
                if($mode!=FTP_BINARY) $block=preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_local], $block);
                if(is_resource($fp)) $out+=fwrite($fp, $block, strlen($block));
                else $out.=$block;
            }
            return $out;
        }

        function _data_write($mode=FTP_ASCII, $fp=NULL) {
            $NewLine=$this->_eol_code[$this->OS_local];
            if(is_resource($fp)) $out=0;
            else $out="";
            if(!$this->_passive) {
                $this->SendMSG("Connecting to ".$this->_datahost.":".$this->_dataport);
                $this->_ftp_temp_sock=socket_accept($this->_ftp_data_sock);
                if($this->_ftp_temp_sock===FALSE) {
                    $this->PushError("_data_write","socket_accept", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return false;
                }
            }
            if(is_resource($fp)) {
                while(!feof($fp)) {
                    $block=fread($fp, $this->_ftp_buff_size);
                    if(!$this->_data_write_block($mode, $block)) return false;
                }
            } elseif(!$this->_data_write_block($mode, $fp)) return false;
            return true;
        }

        function _data_write_block($mode, $block) {
            if($mode!=FTP_BINARY) $block=preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_remote], $block);
            do {
                if(($t=@socket_write($this->_ftp_temp_sock, $block))===FALSE) {
                    $this->PushError("_data_write","socket_write", socket_strerror(socket_last_error($this->_ftp_temp_sock)));
                    $this->_data_close();
                    return FALSE;
                }
                $block=substr($block, $t);
            } while(!empty($block));
            return true;
        }

        function _data_close() {
            @socket_close($this->_ftp_temp_sock);
            @socket_close($this->_ftp_data_sock);
            $this->SendMSG("Disconnected data from remote host");
            return TRUE;
        }

        function _quit() {
            if($this->_connected) {
                @socket_close($this->_ftp_control_sock);
                $this->_connected=false;
                $this->SendMSG("Socket closed");
            }
        }
    }
}
else {
    class appRain_Base_Modules_Ftp extends appRain_Base_Modules_FtpBase {

        function ftp($verb=FALSE, $le=FALSE) {
            $this->__construct($verb, $le);
        }

        function __construct($verb=FALSE, $le=FALSE) {
            parent::__construct(false, $verb, $le);
        }

    // <!-- --------------------------------------------------------------------------------------- -->
    // <!--       Private functions                                                                 -->
    // <!-- --------------------------------------------------------------------------------------- -->

        function _settimeout($sock) {
            if(!@stream_set_timeout($sock, $this->_timeout)) {
                $this->PushError('_settimeout','socket set send timeout');
                $this->_quit();
                return FALSE;
            }
            return TRUE;
        }

        function _connect($host, $port) {
            $this->SendMSG("Creating socket");
            $sock = @fsockopen($host, $port, $errno, $errstr, $this->_timeout);
            if (!$sock) {
                $this->PushError('_connect','socket connect failed', $errstr." (".$errno.")");
                return FALSE;
            }
            $this->_connected=true;
            return $sock;
        }

        function _readmsg($fnction="_readmsg"){
            if(!$this->_connected) {
                $this->PushError($fnction, 'Connect first');
                return FALSE;
            }
            $result=true;
            $this->_message="";
            $this->_code=0;
            $go=true;
            do {
                $tmp=@fgets($this->_ftp_control_sock, 512);
                if($tmp===false) {
                    $go=$result=false;
                    $this->PushError($fnction,'Read failed');
                } 
				else {
                    $this->_message.=$tmp;
                    if(preg_match("/^([0-9]{3})(-(.*[".CRLF."]{1,2})+\\1)? [^".CRLF."]+[".CRLF."]{1,2}$/", $this->_message, $regs)) $go=false;
                }
            } while($go);
            if($this->LocalEcho) echo "GET < ".rtrim($this->_message, CRLF).CRLF;
            $this->_code=(int)$regs[1];
            return $result;
        }

        function _exec($cmd, $fnction="_exec") {
            if(!$this->_ready) {
                $this->PushError($fnction,'Connect first');
                return FALSE;
            }
            if($this->LocalEcho) echo "PUT > ",$cmd,CRLF;
            $status=@fputs($this->_ftp_control_sock, $cmd.CRLF);
            if($status===false) {
                $this->PushError($fnction,'socket write failed');
                return FALSE;
            }
            $this->_lastaction=time();
            if(!$this->_readmsg($fnction)) return FALSE;
            return TRUE;
        }

        function _data_prepare($mode=FTP_ASCII) {
            if(!$this->_settype($mode)) return FALSE;
            if($this->_passive) {
                if(!$this->_exec("PASV", "pasv")) {
                    $this->_data_close();
                    return FALSE;
                }
                if(!$this->_checkCode()) {
                    $this->_data_close();
                    return FALSE;
                }
                $ip_port = explode(",", ereg_replace("^.+ \\(?([0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]{1,3},[0-9]+,[0-9]+)\\)?.*".CRLF."$", "\\1", $this->_message));
                $this->_datahost=$ip_port[0].".".$ip_port[1].".".$ip_port[2].".".$ip_port[3];
                $this->_dataport=(((int)$ip_port[4])<<8) + ((int)$ip_port[5]);
                $this->SendMSG("Connecting to ".$this->_datahost.":".$this->_dataport);
                $this->_ftp_data_sock=@fsockopen($this->_datahost, $this->_dataport, $errno, $errstr, $this->_timeout);
                if(!$this->_ftp_data_sock) {
                    $this->PushError("_data_prepare","fsockopen fails", $errstr." (".$errno.")");
                    $this->_data_close();
                    return FALSE;
                }
                else $this->_ftp_data_sock;
            } else {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            return TRUE;
        }

        function _data_read($mode=FTP_ASCII, $fp=NULL) {
            if(is_resource($fp)) $out=0;
            else $out="";
            if(!$this->_passive) {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            while (!feof($this->_ftp_data_sock)) {
                $block=fread($this->_ftp_data_sock, $this->_ftp_buff_size);
                if($mode!=FTP_BINARY) $block=preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_local], $block);
                if(is_resource($fp)) $out+=fwrite($fp, $block, strlen($block));
                else $out.=$block;
            }
            return $out;
        }

        function _data_write($mode=FTP_ASCII, $fp=NULL) {
            if(is_resource($fp)) $out=0;
            else $out="";
            if(!$this->_passive) {
                $this->SendMSG("Only passive connections available!");
                return FALSE;
            }
            if(is_resource($fp)) {
                while(!feof($fp)) {
                    $block=fread($fp, $this->_ftp_buff_size);
                    if(!$this->_data_write_block($mode, $block)) return false;
                }
            } elseif(!$this->_data_write_block($mode, $fp)) return false;
            return TRUE;
        }

        function _data_write_block($mode, $block) {
            if($mode!=FTP_BINARY) $block=preg_replace("/\r\n|\r|\n/", $this->_eol_code[$this->OS_remote], $block);
            do {
                if(($t=@fwrite($this->_ftp_data_sock, $block))===FALSE) {
                    $this->PushError("_data_write","Can't write to socket");
                    return FALSE;
                }
                $block=substr($block, $t);
            } while(!empty($block));
            return true;
        }

        function _data_close() {
            @fclose($this->_ftp_data_sock);
            $this->SendMSG("Disconnected data from remote host");
            return TRUE;
        }

        function _quit($force=FALSE) {
            if($this->_connected or $force) {
                @fclose($this->_ftp_control_sock);
                $this->_connected=false;
                $this->SendMSG("Socket closed");
            }
        }
    }
}